home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / gfx / 3d / IIB10.lha / IIB / Threads / Additional / IARexx.lha / LoadMe.irx < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.1 KB  |  53 lines
  1. /*
  2. **  $VER: LoadMe.irx  0.01 (10 Jun 1996)  **
  3. **
  4. **      (c) 1996 Ernesto Poveda Cortes
  5. **
  6. **  PROGRAMNAME:
  7. **      LoadMe.irx
  8. **
  9. **  FUNCTION:
  10. **      Just loads an object into Imagine, It is useful to,
  11. **      for example, see an object from DOpus when you doubleclik
  12. **      it.
  13. **
  14. **  REQUIRES:
  15. **      Imagine 5.0 loaded and in Detail Editor.
  16. **
  17. **  USE:
  18. **      rx LoadMe.irx <obect>
  19. **
  20. **  $HISTORY:
  21. **
  22. **  10 Jun 1996 : 0.01 : initial release
  23. */
  24.  
  25. arg filename
  26. OPTIONS RESULTS                             /* enable return codes     */
  27. ADDRESS 'Imagine.1'
  28.  
  29. OPTIONS FAILAT 6                            /* ignore warnings         */
  30. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  31.  
  32. NL = '0A'x
  33. /* ------------------------------------------------------------------- */
  34.  
  35. IMAGINETOFRONT
  36. DISPLAYREXXPTR ON
  37. LOADOBJECT filename /* No error check here !!! */
  38.  
  39. /* ------------------------------------------------------------------- */
  40.  
  41. ActivateImagine
  42. DISPLAYREXXPTR OFF
  43. EXIT
  44.  
  45. SYNTAX:
  46.  
  47. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  48.  
  49. BYE:
  50. ActivateImagine
  51. DISPLAYREXXPTR OFF
  52. EXIT
  53.